BCI NET 2/BCI NET 2.iso/archives/programming/arexx/rsk24.lha/Rexx/Execute_Demo.rexx

OS/2 REXX Batch file | 1995-01-28 | 1.7 KB | 3 lines

/* Compressed */
Trace 'off';if ~show('L','rexxarplib.library') then if ~addlib('rexxarplib.library',0,-30,0) then exit(10);if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then exit(10);if show('P',HOST) then call closewindow(HOST);PARSE ARG WB.av;if WB.av = '' then WB.av = 'DF0:';WB.run = 0;WB.name = 'Format Disk '||WB.av||' When Inserted';WB.width = 300;;WB.height = 11;WB.leftedge = (screencols() - 300);WB.topedge = 0;string.leftedge = ((screencols() - 250) / 2);string.topedge = ((screenrows() - 35) / 2);string.text.0 = center('Format Disk DF0',25);string.okay = '  Okay  ';string.cancel = ' Cancel ';string.public = '';SIGNAL ON BREAK_C;SIGNAL ON HALT;OPTIONS RESULTS;OPTIONS FAILAT 10;address AREXX '''CreateHost(HOST,PORT)''';call Openport(PORT);do for 50;call delay 5;if showlist('P',PORT) then leave;end;if ~showlist('P',HOST) then exit(10);idcmp = 'CLOSEWINDOW+DISKINSERTED';flags = 'WINDOWCLOSE+ACTIVATE+WINDOWDRAG+WINDOWDEPTH';call OpenWindow(HOST,WB.leftedge,WB.topedge,WB.width,WB.height,idcmp,flags,WB.name);call SetDrMd(HOST,JAM1);do until(WB.run);t = waitpkt(PORT);do i = 1;p = getpkt(PORT);if c2d(p) = 0 then leave i;command = getarg(p,0);select;when command = 'DISKINSERTED' then do;say 'DISKINSERTED';if Request_bool(string.text.0) = 'OKAY' then do;say 'Selected Okay!'; "'address command ''Sys:System/Format Drive '||WB.av||' Name Empty NOICONS'''";end;end;when command = 'CLOSEWINDOW' then do;i=0;WB.run=1;end;otherwise say 'DEFAULT';t = reply(p,t);end;end;end;call closewindow(HOST);exit(0);BREAK_C:;say '*** Control-C Recieved ***';exit(5);HALT:;say '*** High Priority Halt Recieved ***';exit(6);Request_Bool:;return Request(string.leftedge,string.topedge,arg(1),,string.okay,string.cancel,string.public)